unit OsnovnoSredstvoFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SifrantFrm, DBBaseFrm, cxStyles, cxCustomData, cxGraphics, cxFilter,
  cxData, cxEdit, DB, cxDBData, cxGridBandedTableView, DBClient, MConnect,
  alBaseDataSet, cxEditRepositoryItems, cxContainer, StdActns, ActnList,
  cxGridLevel, cxGridCustomTableView, cxGridTableView,
  cxGridDBBandedTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
  cxTextEdit, cxMaskEdit, cxDBEdit, StdCtrls, ExtCtrls, ImgList, PoslovanjeSrv_TLB,
  cxDataStorage, kdbinfo, kdbstruc;

type
  TfrmOsnovnoSredstvo = class(TfrmSifrant)
  private
    { Private declarations }
  protected
    function GetSessionParamRelations(DataSet: TDataSet): TSessionParamRelations; override;
  public
    { Public declarations }
  end;

var
  frmOsnovnoSredstvo: TfrmOsnovnoSredstvo;

implementation

uses
  MainFrm;

{$R *.dfm}

{ TfrmOsnovnoSredstvo }

function TfrmOsnovnoSredstvo.GetSessionParamRelations(
  DataSet: TDataSet): TSessionParamRelations;
begin
  if DataSet = cdsMain then
  begin
    SetLength(Result, 1);
    Result[0].FieldName := 'REF_ID';
    Result[0].SessionName := 'PODJETJE_ID';
  end;
end;

end.
